Imports System.Runtime.Remoting.Channels.Tcp
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting

Public Class NamesClient

    Shared Sub Initialise(ByVal configFilename As String)
        RemotingConfiguration.Configure(configFilename, False)
    End Sub

    Public Shared Function NamesInterfaceProxy() As NamesInterface.NamesInterface
        Dim ni As NamesInterface.NamesInterface = _
        New names
        Return ni
    End Function

    Public Shared Function AuthorsInterfaceProxy() As NamesInterface.AuthorsInterface
        Dim ai As NamesInterface.AuthorsInterface = _
        RemotingHelper.GetObject(GetType(NamesInterface.AuthorsInterface))
        Return ai
    End Function

    Public Shared Function ReportsInterfaceProxy() As NamesInterface.ReportsInterface
        Dim ri As NamesInterface.ReportsInterface = _
        RemotingHelper.GetObject(GetType(NamesInterface.ReportsInterface))
        Return ri
    End Function

    Public Shared Function ReferencesInterfaceProxy() As NamesInterface.ReferencesInterface
        Dim ri As NamesInterface.ReferencesInterface = _
        RemotingHelper.GetObject(GetType(NamesInterface.ReferencesInterface))
        Return ri
    End Function

    Public Shared Function UsersInterfaceProxy() As NamesInterface.UserInterface
        Dim ui As NamesInterface.UserInterface = _
        RemotingHelper.GetObject(GetType(NamesInterface.UserInterface))
        Return ui
    End Function

End Class
